#!/usr/bin/perl

use XML::XPath;
use XML::XPath::XMLParser;

$archivo = $ARGV[0];
$destino = $ARGV[1];

my $xp = XML::XPath->new(filename => $archivo);
   
my $nodeset = $xp->find('/micasa/habitacion/puerta[@a="'.$destino.'"]');

foreach my $node($nodeset->get_nodelist) {
    print XML::XPath::XMLParser::as_string($node), "\n\n";
}


